home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / aminet / htmlcat / install < prev    next >
Text File  |  1997-08-27  |  5KB  |  215 lines
  1. ;  *** HTMLCat V2.10 installation scipt ***
  2.  
  3.  
  4. ; *** Set some useful messages ***
  5. ;****************************************************************************
  6. ;
  7. ; English texts
  8. ;
  9. (if (not (= @language "français"))
  10.   (
  11.     (set #install-msg (cat    "\n\nHTMLcat V2.10 installation script.\n"
  12.                                             "This script installs HTMLcat on your Amiga.\n\n"
  13.                                             "Read the documentation for\n"
  14.                                             "more information on the distribution\n"
  15.                                             "and commercial usage.\n\n"
  16.                                             "HTMLcat © 1997 by David ANDRE\n"
  17.                                             "UNREGEGISTRED VERSION"
  18.                                             "All rights reserved."))
  19.     (set #welcome-msg      "Welcome to the HTMLcat installation!")
  20.     (set #bad-installer            "You must be using Installer 43.x to install HTMLcat")
  21.     (set #ask-prog-dir            "Where shall I install HTMLcat ?\n(A drawer will NOT be created)")
  22.     (set #which-language      (cat "\nWhich languages should be installed?"))
  23.     (set #ask_extra_dir        "Where do you want to install sample pictures?")
  24.     (set #copy_extras        "Copying extras files in ")
  25.     (set #copy_prog            "Copying HTMLCat V2.10 in ")
  26.     (set #copy_dir            "Copying docs files in ")
  27.     (set #ask_doc_dir        "Where do you want to copy doc file(s)?")
  28.     (set #which-doc            "In which language do you want to install doc file?")
  29.     (set #copy_rexx            "Copying ARexx script")
  30.     (set #which-rexx        "Which script(s) do you want to install?")
  31.   )
  32. )
  33.  
  34. ;****************************************************************************
  35. ;
  36. ; Français Texte
  37. ;
  38. (if (= @language "français")
  39.   (
  40.     (set #install-msg (cat    "\n\nScript d'installation de HTMLcat V2.10.\n"
  41.                                             "Ce script va installé HTMLcat dans votre Amiga.\n\n"
  42.                                             "Veuillez lire la documentation pour\n"
  43.                                             "plus d'information sur son utilisation\n"
  44.                                             "et les copyright.\n\n"
  45.                                             "HTMLcat © 1997 by David ANDRE\n"
  46.                                             "VERSION NON ENREGISTREE"
  47.                                             "Tous droits réservés."))
  48.     (set #welcome-msg      "Bienvenu dans l'installation de HTMLcat!")
  49.     (set #ask-prog-dir            "Où voulez vous installer HTMLcat?\n(Un répertoire ne va pas être créer)")
  50.     (set #bad-installer            "Vous devez installer Installer 43.x pour continuer cette installation")
  51.     (set #which-language        (cat "\nQuelles langues voulez vous installer?"))
  52.     (set #ask_extra_dir        "Ou voulez vous installer les exemples d'images de navigation?")
  53.     (set #copy_extras        "Copie des fichiers Extras dans ")
  54.     (set #copy_prog            "Copie du logiciel HTMLCat V2.10 dans ")
  55.     (set #copy_dir            "Copie des documents dans ")
  56.     (set #ask_doc_dir        "Où voulez vous installer les documents?")
  57.     (set #which-doc            "Dans quelle langue voulez vous installer les documents?")
  58.     (set #copy_rexx            "Copie des script Rexx")
  59.     (set #which-rexx        "Quel(s) script(s) voulez vous installer")
  60.   )
  61. )
  62.  
  63. ; *** Welcome the user to the installation
  64.  
  65.     (message #install-msg)
  66.  
  67.  
  68. ; *** Check for Installer-Version ***
  69.  
  70.     (if (< (/ @installer-version 65536) 43)
  71.         ((abort #bad-installer))
  72.     )
  73.  
  74. ; *** Check for CPU ***
  75.  
  76. ; *** Delete old version in C:
  77.  
  78.     (if (exists "C:HTMLcat") (delete "C:HTMLcat"))
  79.  
  80. ; *** Ask the user for the default-destinations ***
  81.  
  82.     (set #prog-dest    (askdir     (prompt #ask-prog-dir)
  83.                                   (help @askdir-help)
  84.                                   (default "SYS:")
  85.                         )
  86.     )
  87. ; *** Copy the programs ***
  88.  
  89.     (copyfiles (prompt (cat #copy_prog #prog-dest))
  90.                 (help @copyfiles-help)
  91.                 (source "HTMLcat")
  92.                 (dest #prog-dest )
  93.                 (infos)
  94.                 (noposition)
  95.     )
  96.     (set #extrasdir (askdir     (prompt #ask_extra_dir)
  97.                       (help @askdir-help)
  98.                     (default #prog-dest)
  99.     ))
  100.     (copyfiles (prompt (cat #copy_extras #extrasdir))
  101.             (help @copyfiles-help)
  102.             (source "extras/")
  103.             (dest #extrasdir)
  104.             (all)
  105.             (infos)
  106.             (noposition)
  107.     )
  108.  
  109.     (copyfiles (prompt #copy_font)
  110.             (help "")
  111.             (source "Fonts")
  112.             (dest "sys:Fonts/")
  113.             (all)
  114.             (optional askuser)
  115.     )
  116.  
  117.     (set #docs (askoptions (prompt #which-doc)
  118.                 (help "")
  119.                 (choices
  120.                      "Français"
  121.                      "English")
  122.                 (default 0)
  123.           )
  124.     )
  125.  
  126.     (if (not (= #docs 0))
  127.     (
  128.         (set #doc_dir (askdir     (prompt #ask_doc_dir)
  129.                 (help #askdir-help)
  130.                 (default #prog-dest)
  131.             )
  132.         )
  133.     ))
  134.  
  135.     (if (BITAND #docs 1)
  136.     (
  137.         (makedir (cat #doc_dir "/français"))
  138.         (copyfiles (prompt #copy_docs)
  139.            (help @copyfiles-help)
  140.            (source "doc/français")
  141.            (dest (cat #doc_dir "/français"))
  142.            (all)
  143.            (infos)
  144.            (noposition)
  145.         )
  146.     ))
  147.  
  148.     (if (BITAND #docs 2)
  149.     (
  150.         (makedir (cat #doc_dir "/english"))
  151.         (copyfiles (prompt #copy_docs)
  152.            (help @copyfiles-help)
  153.            (source "doc/français")
  154.            (dest (cat #doc_dir "/english"))
  155.            (all)
  156.            (infos)
  157.            (noposition)
  158.         )
  159.     ))
  160.  
  161.     (set #rexx    (askoptions (prompt #which-rexx)
  162.                 (help "")
  163.                 (choices "ADPro 2.5"
  164.                      "GfxCon 1.7")
  165.                     (default 0)
  166.             )
  167.     )
  168.  
  169.     (if (BITAND #rexx 1)
  170.     (
  171.         (copyfiles (prompt #copy_rexx)
  172.             (help @copyfiles-help)
  173.             (source "rexx/ADPRO/MKVignettes.rexx")
  174.             (dest "rexx:")
  175.             (infos)
  176.             (noposition)
  177.         )
  178.     ))
  179.  
  180.     (if (BITAND #rexx 2)
  181.     (
  182.         (copyfiles (prompt #copy_rexx)
  183.             (help @copyfiles-help)
  184.             (source "rexx/GFXCONV/MKVignettes.rexx")
  185.             (dest "rexx:")
  186.             (infos)
  187.             (noposition)
  188.         )
  189.     ))
  190.  
  191.  
  192.     
  193. (if (exists "SYS:Locale")
  194. (
  195.     (if (exists "LOCALE:")
  196.     (
  197.         (set lang (askoptions (prompt #which-language)
  198.                                 (help "")
  199.                                 (choices
  200.                                      "Francais"
  201.                                      "English (default)")
  202.                                 (default 0)
  203.               )
  204.         )
  205.         (if (BITAND lang 1)
  206.         (
  207.             (makedir (cat "LOCALE:Catalogs/français"))
  208.             (copyfiles (source "Catalogs/français" )
  209.                         (dest (cat "LOCALE:Catalogs/français"))
  210.                         (all)
  211.             )
  212.         ))
  213.     ))
  214. ))
  215.